home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / isconn_1 / options.frm < prev    next >
Text File  |  1999-08-31  |  4KB  |  129 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Options"
  5.    ClientHeight    =   2055
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   5295
  9.    LinkTopic       =   "Form5"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2055
  13.    ScaleWidth      =   5295
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command3 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "Cancel"
  19.       Height          =   255
  20.       Left            =   4200
  21.       TabIndex        =   5
  22.       Top             =   480
  23.       Width           =   975
  24.    End
  25.    Begin VB.CommandButton Command2 
  26.       Caption         =   "Ok"
  27.       Default         =   -1  'True
  28.       Height          =   255
  29.       Left            =   4200
  30.       TabIndex        =   4
  31.       Top             =   120
  32.       Width           =   975
  33.    End
  34.    Begin VB.Frame Frame2 
  35.       Caption         =   "Link"
  36.       Height          =   735
  37.       Left            =   120
  38.       TabIndex        =   6
  39.       Top             =   1200
  40.       Width           =   5055
  41.       Begin VB.TextBox Text2 
  42.          Height          =   285
  43.          Left            =   120
  44.          TabIndex        =   3
  45.          Top             =   240
  46.          Width           =   4815
  47.       End
  48.    End
  49.    Begin VB.Frame Frame1 
  50.       Caption         =   "Image options"
  51.       Height          =   975
  52.       Left            =   120
  53.       TabIndex        =   0
  54.       Top             =   120
  55.       Width           =   3495
  56.       Begin VB.CommandButton Command1 
  57.          Caption         =   "Browse"
  58.          Height          =   255
  59.          Left            =   2640
  60.          TabIndex        =   2
  61.          Top             =   480
  62.          Width           =   735
  63.       End
  64.       Begin VB.TextBox Text1 
  65.          Height          =   285
  66.          Left            =   120
  67.          TabIndex        =   1
  68.          Top             =   480
  69.          Width           =   2535
  70.       End
  71.       Begin VB.Label Label2 
  72.          AutoSize        =   -1  'True
  73.          BackStyle       =   0  'Transparent
  74.          Caption         =   "filename:"
  75.          Height          =   195
  76.          Left            =   120
  77.          TabIndex        =   7
  78.          Top             =   240
  79.          Width           =   630
  80.       End
  81.    End
  82. End
  83. Attribute VB_Name = "Form5"
  84. Attribute VB_GlobalNameSpace = False
  85. Attribute VB_Creatable = False
  86. Attribute VB_PredeclaredId = True
  87. Attribute VB_Exposed = False
  88. Private Sub Command1_Click()
  89. On Error GoTo er
  90. MDI.CommonDialog1.Filter = "Gif images(*.gif)|*.gif|Jpeg inmages(*.jpg)|*.jpg|Windows bitmap(*.bmp)|*.bmp|Windows Metafile(*.wmf)|*.wmf|Icons(*.ico)|*.ico|Cursers(*.cur)|*.cur|"
  91. MDI.CommonDialog1.ShowOpen
  92. Form1.Image1(ccindexx).Stretch = False
  93. Form1.Image1(ccindexx).Picture = LoadPicture(MDI.CommonDialog1.filename)
  94. Form1.Image1(ccindexx).Stretch = True
  95. Form1.Image1(ccindexx).ToolTipText = MDI.CommonDialog1.filename
  96. Text1.Text = MDI.CommonDialog1.filename
  97. Exit Sub
  98. er:
  99. If Err.Number <> 32755 Then
  100. MsgBox Err.Description
  101. End If
  102. End Sub
  103.  
  104. Private Sub Command2_Click()
  105. On Error Resume Next
  106. If Me.Tag = "image" Then
  107. Form1.Image1(indexctrl).ToolTipText = Text1.Text
  108. Form1.Image1(indexctrl).Tag = Text2.Text
  109. Unload Me
  110. Else
  111. Form1.Label1(indexctrl).Tag = Text2.Text
  112. Unload Me
  113. End If
  114. End Sub
  115.  
  116. Private Sub Command3_Click()
  117. Unload Me
  118. End Sub
  119.  
  120. Private Sub Form_Activate()
  121. On Error Resume Next
  122. If Me.Tag = "image" Then
  123. Frame1.Enabled = True
  124. Else
  125. Frame1.Enabled = False
  126. End If
  127. End Sub
  128.  
  129.